COMMENT ⊗   VALID 00002 PAGES 
RECORD PAGE   DESCRIPTION
 00001 00001
 00002 00002	DEFINE	ZERROR	$(A,B)
 00007 ENDMK
⊗;
DEFINE	ZERROR	$(A,B)
{A:	OUTSTR	[ASCIZ	⊗
#ERROR: ⊗]
XLIST
	OUTSTR	B
	OUTCHR	["#"]
	SOS	LINENO
	EXCH	10, ERRORC
	AOBJN	10, .+1
	EXCH	10, ERRORC
	SOJ	PC,
	SKIPN	RUNC
	JRST	%$A
	PUTSTR	<[ASCIZ ⊗#ERROR: ⊗]>
	PUTSTR	<B>
	PUTSTR	<[ASCIZ ⊗#
⊗]>
	PUTSTR	<[ASCIZ ⊗ PC= ⊗]>
	MOVEI	13,4
	MOVEI	10,-MC0000(PC)
	PUTDEC
%$A:	MOVEI	10,-MC0000(PC)
	OUTSTR	[ASCIZ ⊗ PC= ⊗]
	PUSHJ	P,OUTD1
	JRST	BUTTON
LIST
}

DEFINE	WERROR	$(A,B)
{A:	OUTSTR	[ASCIZ	⊗
#ERROR: ⊗]
XLIST
	OUTSTR	B
	OUTCHR	["#"]
	SOS	LINENO
	EXCH	10, ERRORC
	AOBJN	10, .+1
	EXCH	10, ERRORC
	SOJ	PC,
	SKIPN	RUNC
	JRST	%$A
	PUTSTR	<[ASCIZ ⊗#ERROR: ⊗]>
	PUTSTR	<B>
	PUTSTR	<[ASCIZ ⊗#
⊗]>
	PUTSTR	<[ASCIZ ⊗ PC= ⊗]>
	MOVEI	13,4
	MOVEI	10,-MC0000(PC)
	PUTDEC
%$A:	MOVEI	10,-MC0000(PC)
	OUTSTR	[ASCIZ ⊗ PC= ⊗]
	PUSHJ	P,OUTD1
	OUTSTR	[ASCIZ ⊗
CORRECT CONDITION AND HIT CONTINUE BUTTON⊗]
	JRST	BUTTON
LIST
}

DEFINE	YERROR	$(A,B,C)
{A:	OUTSTR	[ASCIZ ⊗
#ERROR: ⊗]
XLIST
	OUTSTR	B
	OUTCHR	["#"]
	SOS	LINENO
	EXCH	10, ERRORC
	AOBJN	10, .+1
	EXCH	10, ERRORC
	SKIPN	RUNC
	JRST	%$A
	PUTSTR	<[ASCIZ ⊗#ERROR: ⊗]>
	PUTSTR	<B>
	PUTSTR	<[ASCIZ ⊗#
⊗]>
	PUTSTR	<[ASCIZ ⊗ PC= ⊗]>
	MOVEI	13,4
	MOVEI	10,-MC0000-1(PC)
	PUTDEC
%$A:	MOVEI	10,-MC0000-1(PC)
	OUTSTR	[ASCIZ ⊗ PC= ⊗]
	PUSHJ	P,OUTD1
	SKIPE	ERRHLT
	JRST	BUTTON
	C
	POPJ	P,
LIST
}

ERRHLT:	0		;NON ZERO DENOTES HALT ON NON-FATAL ERRORS
ERRORC:	0
LALL


ZERROR	(ZMOVER,<[ASCIZ  ⊗MEMORY OVERFLOW⊗]>)

YERROR	(YFIELD,<[ASCIZ  ⊗INVALID FIELD-BYTE: (0:5) USED⊗]>,<MOVEI 11, 5>)

YERROR	(Y2FIEL,<[ASCIZ  ⊗INVALID FIELD-BYTE: 00 USED⊗]>,<SETZM SAVEF>)

YERROR	(YINDEX,<[ASCIZ  ⊗INVALID INDEX-BYTE: 00 USED⊗]>,<SETZ 13,>)

YERROR	(YIREG,<[ASCIZ  ⊗BYTES 1-3 SHOULD BE ZERO FOR INDEX REGISTERS⊗]>,<JUMP>)

YERROR	(YMOVER,<[ASCIZ ⊗ILLEGAL EFFECTIVE ADDR: INSTR IGNORED⊗]>,<JRST NOP>)

ZERROR	(ZEOF,<[ASCIZ  ⊗END-OF-FILE ON INPUT⊗]>)

ZERROR	(ZINOUT,<[ASCIZ  ⊗SOME I/O ERROR⊗]>)

ZERROR	(ZDISK,<[ASCIZ  ⊗SOME DISK ERROR⊗]>)

WERROR	(ZIOBEG,<[ASCIZ  ⊗THIS DEVICE HASN'T BEEN INITIALIZED YET⊗]>)

ZERROR	(ZUNIT,<[ASCIZ  ⊗THIS UNIT CAN'T DO THIS I/O⊗]>)

ZERROR	(ZMLD,<[ASCIZ  ⊗ERROR IN .MLD INPUT⊗]>)

ZERROR	(ZIOC,<[ASCIZ ⊗ILLEGAL IOC⊗]>)

ZERROR	(ZRLOCK,<[ASCIZ ⊗TRYING TO LOAD BEFORE INPUT FINISHED⊗]>)

ZERROR	(ZWLOCK,<[ASCIZ ⊗TRYING TO STORE BEFORE OUTPUT FINISHED⊗]>)

ZERROR	(ZPCLOK,<[ASCIZ ⊗P.C. TRYING TO ACCESS BEFORE INPUT FINISHED⊗]>)

ZERROR	(ZDEV,<[ASCIZ ⊗ILLEGAL DEVICE FOR JBUS OR JRED⊗]>)
XALL